1 REM DF
2 A=USR(0),0,1,4:A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17)
3 A=USR(1):PRINTCHR$(14);"[147]":OPEN15,D0,15:CLOSE15
4 PRINT"[196]ISK FUNCTIONS:
5 [153]"  C WAIT LENHANGE DRIVE ASSIGNMENTS
6 PRINT"  S [146] [195]HANGE [211]PEED 0 VALUE
7 [153]"  D WAIT ASCILE DISK DIRECTORY
8 PRINT"  > [146] [211]END COMMAND TO FILE DRIVE
9 [153]"  X WAIT VALXIT TO LENATNSTR$
10 PRINT:PRINT"(C,S,D,>,X):[146]
11 [161]C$:[139]C$[178]""[167]11
12 [139]C$[178]"C"[167]32
13 [139]C$[178]"S"[167]43
14 [139]C$[178]"."[176]C$[178]">"[167]18
15 [139]C$[178]"D"[167][153]:[158]36906:[137]4
16 [139]C$[178]"X"[167]25
17 [137]4
18 C$[178]"":[153]:[153]D1;">";:[159]15,D1,15,"I0":[132]15,E,E$:[160]15
19 [139]E[179][177]0[167][153]E,E$:[137]4
20 [161]B$:[139]B$[178]""[167]20
21 [153]B$;:[139]B$[178][199](13)[167]23
22 C$[178]C$[170]B$:[137]20
23 [139][195](C$)[179]1[167]4
24 [159]15,D1,15,C$:[160]15:[137]10
25 [153]"LOAD";:[139]D0[178]D1[167][153]"RIGHT$NSERT (null)(null)(null)CHR$(null)ATN(null) DISK IN DRIVE ";D0
26 [153]"(null)RESS A KEY."
27 [161]A$:[139]A$[178]""[167]27
28 [159]15,D0,15:[159]2,D0,2,"CMND,P,R":[160]2:[161]#15,E:[160]15
29 [139]E[179][177]0[167][153]"(null)ROGRAM DISK NOT PRESENT.":[137]27
30 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):A[178][183](34),8,Y,6
31 A[178][183](34),X,231,7:[147]"CMND",D0
32 [153]"(null)ROGRAM DISK IS LOGGED TO DRIVE ";D0
33 [153]"VALNTER NEW DRIVE NUMBER: ";
34 [161]C$:[139]C$[178]""[167]34
35 [139](C$[178]"9")[175](D0[178]8)[167]D0[178]9
36 [139](C$[178]"8")[175](D0[178]9)[167]D0[178]8
37 [151]36862,D0:[153]D0:[153]"ASCILE DISK IS LOGGED TO DRIVE ";D1
38 [153]"VALNTER NEW DRIVE NUMBER: ";
39 [161]C$:[139]C$[178]""[167]39
40 [139](C$[178]"9")[175](D1[178]8)[167]D1[178]9
41 [139](C$[178]"8")[175](D1[178]9)[167]D1[178]8
42 [151]36863,D1:[153]D1:[137]4
43 [153]"(null)PEED 0 IS PRESENTLY ";SS
44 [133]"(null)EW VALUE:";A$
45 [139][197](A$)[179]1[167]4
46 SS[178][197](A$):[137]4